home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / tran1.dir / 00071_Script_aDoor < prev    next >
Text File  |  1994-11-11  |  610b  |  21 lines
  1. property mySprite,myBaseCast
  2.  
  3. on birth me,aSprite,aBaseCast
  4.   set mySprite to aSprite
  5.   set myBaseCast to aBaseCast
  6.   puppetSprite mySprite,true
  7.   set the castNum of sprite mySprite to myBaseCast
  8.   return me
  9. end
  10.  
  11. on mOpen me
  12.   set the castNum of sprite mySprite to (the castNum of sprite mySprite) + 1
  13.   updateStage
  14.   set the castNum of sprite mySprite to (the castNum of sprite mySprite) +1
  15.   updateStage
  16.   set the castNum of sprite mySprite to (the castNum of sprite mySprite) +1
  17.   updateStage
  18.   set the castNum of sprite mySprite to (the castNum of sprite mySprite) +1
  19.   updateStage
  20. end
  21.